home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / REHBER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-31  |  3.5 KB  |  103 lines
  1. {Written in the city of Kayseri by Ersin Kecish!}
  2. uses crt;
  3. var f,t:text;
  4.   ch:char;
  5.   s,z:string;
  6. label again;
  7. begin
  8. textattr:=7;
  9. assign(f,'rehber.tel');
  10. {$i-}reset(f);{$i+}
  11. if ioresult<>0then rewrite(f);
  12. again:
  13. clrscr;
  14. writeln('1) Kayìt ekle');
  15. writeln('2) Kayìt listele');
  16. writeln('3) Kayìt arama');
  17. writeln('4) Kayìt silme');
  18. writeln('5) Kayìt dehishtirme');
  19. writeln('6) Kayìtlarì sìfìrla!');
  20. writeln('7) DOS''a chìkìsh!');
  21. ch:=readkey;if ch=#0then begin ch:=readkey;goto again;end;
  22. case ch of
  23.   '1':begin
  24.        clrscr;
  25.        append(f);
  26.        write('Ad soyad.(max.20 harf): ');readln(s);s:=s+'                    ';          s:=copy(s,1,20);write(f,s);
  27.        write('Telefon..(max.20 harf): ');readln(s);s:=s+'                    ';          s:=copy(s,1,20);write(f,s);
  28.        write('Adres....(max.30 harf): ');readln(s);s:=s+'                              ';s:=copy(s,1,30);writeln(f,s);
  29.        close(f);
  30.       end;
  31.   '2':begin
  32.        clrscr;
  33.        writeln('AD SOYAD            TELEFON             ADRES');
  34.        writeln('─────────────────── ─────────────────── ──────────────────────────────');
  35.        reset(f);
  36.        repeat
  37.         readln(f,s);
  38.         writeln(s);
  39.        until eof(f);
  40.        ch:=readkey;if ch=#0then ch:=readkey;
  41.       end;
  42.   '3':begin
  43.        clrscr;
  44.        write('Ad soyad.(max.20 harf): ');readln(z);z:=z+'                    ';z:=copy(z,1,20);
  45.        writeln('Aranìyor...');
  46.        reset(f);
  47.        repeat
  48.         readln(f,s);
  49.         if copy(s,1,20)=z then
  50.          begin
  51.           writeln('AD SOYAD            TELEFON             ADRES');
  52.           writeln('─────────────────── ─────────────────── ──────────────────────────────');
  53.           writeln(s);
  54.           s:='';
  55.           write('Aramaya devam?(E/H): ');
  56.           repeat ch:=upcase(readkey);until ch in['E','H'];
  57.           if ch='E'then begin gotoxy(1,wherey-3);delline;delline;delline;delline;end else break;
  58.          end;
  59.        until eof(f);
  60.        write('Dosya sonu!'#7);
  61.        ch:=readkey;if ch=#0then ch:=readkey;
  62.       end;
  63.   '4':begin
  64.        clrscr;
  65.        write('Ad soyad.(max.20 harf): ');readln(z);z:=z+'                    ';z:=copy(z,1,20);
  66.        writeln('Aranìyor...');
  67.        assign(t,'rehber.tmp'); rewrite(t);
  68.        reset(f);
  69.        repeat
  70.         readln(f,s);
  71.         if copy(s,1,20)<>z then writeln(t,s);
  72.        until eof(f);
  73.        close(f);
  74.        close(t);
  75.        erase(f);
  76.        rename(t,'rehber.tel');
  77.       end;
  78.   '5':begin
  79.        clrscr;
  80.        write('Ad soyad.(max.20 harf): ');readln(z);z:=z+'                    ';z:=copy(z,1,20);
  81.        writeln('Aranìyor...');
  82.        assign(t,'rehber.tmp'); rewrite(t);
  83.        reset(f);
  84.        repeat
  85.         readln(f,s);
  86.         if copy(s,1,20)<>z then writeln(t,s);
  87.        until eof(f);
  88.        close(f);
  89.        close(t);
  90.        erase(f);
  91.        rename(t,'rehber.tel');
  92.        clrscr;
  93.        append(f);
  94.        write('Yeni Ad soyad.(max.20 harf): ');readln(s);s:=s+'                    ';          s:=copy(s,1,20);write(f,s);
  95.        write('Yeni Telefon..(max.20 harf): ');readln(s);s:=s+'                    ';          s:=copy(s,1,20);write(f,s);
  96.        write('Yeni Adres....(max.30 harf): ');readln(s);s:=s+'                              ';s:=copy(s,1,30);writeln(f,s);
  97.        close(f);
  98.       end;
  99.   '6':begin rewrite(f);close(f);end;
  100.   '7':begin clrscr;writeln('REHBER V0.0000001 !!! Written by Ersin Kecish in the city of Kayseri'#10#13);halt;end;
  101. end;
  102. goto again;
  103. end.